home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Directorty Opus 5 - Magellan 2
/
Opus 5 - Magellan 2.iso
/
Extras
/
Magnum_Opus_2.2
/
Magnum_Opus.Install
< prev
next >
Wrap
Text File
|
1997-09-21
|
9KB
|
277 lines
; $VER: Magnum_Opus.Install 1.3 (22.09.97)
;#############################################################################
;# Here is a special note for those people who like to hack other #
;# peoples installation scripts. #
;# #
;# LEAVE THIS ALONE. 8^) It works very well without you interfering with it. #
;# However, if you think it can be improved give me a call. My details can #
;# be found in the Magnum_Opus.Guide in "DOpus5:Help/" #
;#############################################################################
;Magnum_Opus.Install version history
;V1.0. (25 June 1997)
; * Initial release supplied with Magnum Opus V2.1
;V1.1. (08 Sept 1997)
; * Removed some unnecessary Makedir commands as "copylib" & "copyfile" can do this.
; * It will now install new versions of files even if the old ones are read or write protected.
; * Now checks the default tooltype and stack of the Magnum_Opus.Guide.
; * Progress percentage indication re-done
;V1.2. (13 Sept 1997)
; * Corrected run command to show Magnum_Opus.Guide, it nows uses complete path.
; I didn't spot this as I personally have Multiview made resident in the
; S:user-startup. Thanks go to Adam Lancaster for pointing this out to me.
;V1.3. (22 Sept 1997)
; * Gave the user in "expert mode" the choice of where to put the filetypes.
; * Added check for existance of Filetypes_ORIGINAL directory.
;_________________________________________________________________________________
(set #welcome
(cat "\nWelcome to the installation of\n\n"
"Magnum Opus V2.2\n"
"Copyright © Richard Lane 1996-97"
)
)
(welcome #welcome)
(complete 5)
;===============================================================================
; First I need to check that the assign to DOpus5: exists.
(set #no-opus (cat "You don't appear to have Directory Opus V5.11 or above installed ")
)
(if (not (exists "DOpus5:DirectoryOpus"))
(abort #no-opus)
)
(complete 10)
;===============================================================================
; Now warn the user if they're running a Kickstart 2 Amiga.
; If it's a Kickstart 1.x Amiga then DOpus will NOT install in the first
; place and the above will pick this up, clever huh. Later I may do a proper
; check for this
(if (< (/ (getversion) 65536) 38)
(message "IMPORTANT NOTICE\n\nYou are using a Workbench 2.x Amiga.\n\n"
"Magnum Opus V2.1 has not been tested with this but should work OK\n"
"Please select what you want you want to do ?")
)
(complete 15)
;==============================================================================
; Now to check and display the version of Directory Opus in use.
(set vernum (getversion "DOpus5:DirectoryOpus"))
(set ver (/ vernum 65536))
(set rev (- vernum (* ver 65536) ) )
(message ("\nDirectory Opus V5.11, 5.5, 5.6 or greater is required\n\nyou have version %ld.%ld" ver rev)
)
(complete 20)
;==============================================================================
; OK, Let's go ....
(set #old-filetypes (cat
"You already have backed up filetypes in\n"
" \"DOpus5:Filetypes_ORIGINAL\" \n"
"from a previous installation of Magnum Opus. "
"Please rename this directory before installing this version "
"of Magnum Opus V2.2")
)
(if (exists "DOpus5:Filetypes_ORIGINAL")
(abort #old-filetypes)
)
;This is a new safety check to stop people who have installed a previous
;version overwriting their original filetypes even if they did not rename
;their "Filetypes_Original" directory. It also stops a problem with
;the following functions failing if the Filetypes_Original directory
;is delete protected.
(rename "DOpus5:Filetypes" "DOpus5:Filetypes_ORIGINAL")
(makedir "DOpus5:Filetypes")
(set where (askdir
(prompt "Where should I install the new filetypes ? \n"
"Your current \"Filetypes\" Directory has been backed up as \n"
"\"Filetypes_ORIGINAL\"")
(help @askdir-help) ; I may add some extra help here later
(default "DOpus5:Filetypes")
))
(set @default-dest where)
(copyfiles
(prompt "Copying Filetypes. Please wait...")
(help @copyfiles-help)
(source "Filetypes")
(dest where)
(pattern "#?")
(optional force)
)
(complete 50)
(message
"\n\nIf you need to run this installation again please rename "
"The Filetypes_ORIGINAL directory to another name or "
"you own filetypes will be lost forever."
)
(message "\n\n Phew, I'm glad that's finished.\n\nNext we'll install the help files")
(complete 55)
;============================================================================
; Now for the Help files.
; As there's a version string in the old AmigaGuide file I can do a copylib.
(copylib
(prompt "Copying Help file")
(help @copylib-help)
(Source "help/Magnum_Opus.Guide")
(dest "DOpus5:Help")
(infos) ;I want the new icon installed as this has the
(noposition) ;proper copyright message in it.
(optional "force")
)
; Just to make sure some bright spark hasn't set the wrong default tooltype.
(tooltype
(Prompt "")
(help "")
(dest "DOpus5:Help/Magnum_Opus.Guide")
(setdefaulttool "Multiview")
(setstack 4096)
)
(complete 60)
(copyfiles
(prompt "Copying additional Help file parts")
(help @copyfiles-help)
(Source "help")
(dest "DOpus5:Help")
(pattern "~(#?.Guide|#?.info)") ;this really works ???? yep.
(optional "force")
)
(complete 65)
;No confirm option on this as these bits are needed
;and I want the new versions of these installed.
; By default DOpus 5 doesn't install a Drawer icon for the Help directory, this
; will check if there is one from the MWB_DOpus8 part of the distribution or
; another allready installed. This will also make it easier for novice users
; to find the Magnum2 help file !
(if (NOT (exists "DOpus5:help.info"))
(copyfiles
(prompt "")
(help @copyfiles-help)
(source "Help.info")
(dest "DOpus5:")
(noposition)
(optional "force")
)
)
(complete 70)
;==============================================================================
(message "\n\n Now for the modules, just one for now")
(copyfiles
(prompt "Copying modules")
(help @copyfiles-help)
(Source "Modules")
(dest "DOpus5:Modules")
(pattern "#?")
(optional "force")
)
(complete 75)
;==============================================================================
(message "\n\n Next the ARexx bits")
(copyfiles
(prompt "Copying ARexx bits")
(help @copyfiles-help)
(Source "ARexx")
(dest "DOpus5:ARexx")
(pattern "#?")
(optional "force")
)
(complete 80)
;==============================================================================
(message "\n\n Installing some demo buttons banks")
(copyfiles
(prompt "Copying buttons")
(help @copyfiles-help)
(Source "Buttons")
(dest "DOpus5:Buttons")
(pattern "#?")
(optional "force")
)
(complete 85)
;==============================================================================
(message "\n\n Now for the Images to go in them")
(copyfiles
(prompt "Copying NewImages")
(help @copyfiles-help)
(Source "NewImages")
(dest "DOpus5:NewImages")
(pattern "#?")
(infos)
(noposition)
(optional "force")
)
(complete 90)
;==============================================================================
(message "\n\n Now the icons")
(copyfiles
(prompt "Copying Icons")
(help @copyfiles-help)
(Source "Icons")
(dest "DOpus5:Icons")
(pattern "#?")
(optional "force")
)
(complete 95)
(copyfiles
(prompt "and now the disk icons...")
(help @copyfiles-help)
(source "Disk_Icons")
(dest "DOpus5:Icons/Disk_Icons")
(pattern "#?")
(infos)
(noposition)
(optional "force")
)
(complete 100)
;===============================================================================
(run "SYS:Utilities/Multiview DOpus5:Help/Magnum_Opus.Guide WINDOW"
(Help "I'll give you a clue, click Proceed.")
(prompt "\nDo you want to read the Magnum_Opus V2.2 AmigaGuide ?")
(confirm)
)
(exit
"\nPlease read the AmigaGuide File called "
"\"Magnum_Opus.Guide\" which is now in "
"\"DOpus5:Help/\"\n\n"
"You will need to reboot for the new changes to take effect.\n\n"
"Don't forget that there is a drawer with some nice "
"Hard Disk icons in that you may like to use "
"Which can be found in \"DOpus5:Icons/Disk_Icons\"."
(quiet)
)
;All done thank goodness for that.